(x-display-color-p): Accept optional arg.

diff --git a/lisp/term/pc-win.el b/lisp/term/pc-win.el
index 12d3f15205890a76fe01764fe0a24a8f6de37aa4..8e888c674b4f1285e899299d30264c57d523817d 100644 (file)
--- a/lisp/term/pc-win.el
+++ b/lisp/term/pc-win.el
@@ -108,7 +108,7 @@
 ;; a useful function for returning 'nil regardless of argument.
 
 ;; From src/xfns.c
-(defun x-display-color-p () 't)
+(defun x-display-color-p (&optional display) 't)
 (fset 'focus-frame 'ignore)
 (fset 'unfocus-frame 'ignore)
 (defun x-list-fonts (pattern &optional face frame) (list "default"))